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class SqlCoimection 
{ 

[ Creates, 

Host="'%Database= )1 

SqlCoimection (); 

[ Creates, 

0«ffit.teDepend,0,.("ce«««t..»Sm.g )1 

S "lC«mection (string co,mecnonS»''8) ■ 

void Open 0 ; 
} 
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class SqlCommand 



StateProvider= . .T^vt"^l 
SqlComiMndCstnngcmdText), 

, property: TraBsp»^«l(g=f. set;) 
SqlConnecHon CoimMOOin 6 

I return: OutReaderStaM 

OutStateDependsOnC tliB.»^» 

SqlDataReaderExecuteReaderO, 



\ 
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class SqlDataReader 

InStateDependsOnC'name )1 

object getjtem (string name); 

InStateDependsOnC'i") 1 

string Getstring(inti); 

) 
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class SqlCormectionState : CustomState 



{ 



ConnectionState Status 
sting Host, Database; 

voidNewHostMdDatabaseCstringO co^^^^ ( 
lEmmpleplug^npostcondUionMich 

//parses a connection string for 
//its host and database names. 

Regex hostRegex = new ^^^^ trrAi*)\b", 
@"(datasouicelserver)\s -(1 ,J > 

RegexOptions.IgnoreCase); 

Regex dbRegex = new R^g^^^ , 

@"(catalogldatabase)\s*-(l A ' 
RegexOptionsJgnoreCase); 

for (int i=0; KconnString.Length; I 
MatchCoUection dbm - 
hostRegex.Matches(connStnngliJ), 

'^CXoiVps(21.Cap.urest01.Va.ue; 

MatchCoUection hm- 

dbRegex.Matches(connStnngliJ), 

''Sa?r-'Aoi.GroupsPl.Cap»res[0].Va>ue; 

if (Host = null) 

FailC'could not find host ), 
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class SqlCommandState : CustomState 
^ stringU CommandText; 

id UpdateCommandText (stringU cO ( ConHnandText=c; } 



von 



CheckCo,nn«n«ex. (S^'^^^t'SI Database); 
.mm ISUgalSQUCommandText, cHost, C.U 



bool 

return ISLegi 

} 
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class SqlReaderState : CustomState 

^ string [] ColunmNames, ColunmTypes; 

bool ValidColumnName (stringQ name) {...} 
bool ClumnlsString (int i) {..•} 
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jT^;— Ustatic Encodmg.get_ASCnO 

2:stack0 = 256 

3: buf = newarry byte[stackOJ 

4: bytes = s.Receive(buf) 






10: bytes = call s.Receive(buO 






_B2___JL_I 1 

7:stackO = 0 

8:stackO = bytes>stackedO 
9- TEST stackO 





[ 14: call s.CloseO 
15: RETURN page 
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this : ref (a^) 

(WebPageFetcher.NA, "open", 0) 1300 
1 : stackO = this.socket |^ 
this : ref(aQ) 
StackO : ref(aj) 

a^ (WebPageFetcher, NA, "open", {socket a,}) 
aj (Socket, NA, "connected", 0) 
2: stackl = callstatic Encoding,get__ASCnO 
this : ref (a^) 
StackO : ref(a^) 

a^ ->(WebPageFetcher, NA, "open", {socket aj) 
aj (Socket, NA, "connected", 0) 
aj (Encoding, MA/E,default, 0) 
3: stack2 - "Quit\n" 
this : ref(aQ) 
StackO : ref(aj) 
StackO : ref(a2) 

stack2 : value(string, "QUIT", default) 
a^ (WebPageFetcher, NA, "open", {socket a,}) 
aj (Socket, NA, "connected", 0) 
a2 ^ (Encoding, MA/E,default, 0) 
4: stackl = callvirt stackl, GetBytes(stack2) 
this : ref (a^) 
StackO : ref(aj) 
stackl : ref(a3) 

^0 (WebPageFetcher, NA, "open", {socket a J) 
aj (Socket, NA, "connected", 0) 
aj (Encoding, MA/E,default, 0) 
a3 (byte[],MA/E, default, 0) 
5: StackO = call stackO.Send (stackl) 
this : ref (a^) 
stackl : ref(a3) 

a^ -> (WebPageFetcher, NA, "open", {socket aj) 
aj (Socket, NA, "connected", 0) 
a2 (Encoding, MA/E,default, 0) 
a3 (byte[],MA/E, default, 0) 
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5: stackO = this.socket 
this-.ref(aO) 
StackO : ref(al) 

alg (Socket, NA, "connected ,0) 
a2g (Encoding, MA/E,default,0) 
a3g(byten,MA/E, default, 0) 

7; callstackO.CloseO 
this:ref(aO) 
StackO : ref(al) 

X^WS~NA."op«.".(soo..tgaU) 

a2g (Encoding, MA/E,default,0) 
a3g(byte[],MA/E, default, 0) 

g. return 

Sy^;cwU«cl.er,NA,"«P»". (socket gal!) 
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rWithProtocoK UnknownDB, KnownDB)] 
class Publications : System.Web.UI.Page 

\lnCoimectionState(WhenEnclosingState=UnknownDB 
Status = ConnectionState.Closed, 
Host = AnyHost. Database = AnyDatabase) 
InConnectionState(WhenEnclosingState=KnownDB 

Status = ConnectionState.Closed, 
Host = XXX, Database = YYY ) 
private SqlConnection m_sqlCn; 

[ChangesState( UnknownDB , KnownDB )] 
private void OnPageLoad (EventArgs e) 

m_sqlCn = new SqlConnection(...); 
II... 

) 

[InState( KnownDB )] 
void WriteTRDetail 0 

m_sqlCn.Open(); 
SqlCommand objCommand - 

new SqlCommandC'EXEC m.sqlCn); 
SqlDataReader objDataReader - 
objCommand-ExecuteReaderO; 

II ... 

) 
} 



string GetPersonWebURL ( 
rinReaderState( 
ColuinnNames = - "intemalurl", "extemalurl 
ColumnTypes = - "nchar", "nchar" " ] 
SqlDataReader dr ) 

\f (dr["intemalurl"] = = null) 
if (dr["extemalurl"] = = null) 



return""; 



else 
11... 

} 
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